home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Arsenal Files 6
/
The Arsenal Files 6 (Arsenal Computer).ISO
/
business
/
splt231w.zip
/
THPGL2.ZIP
/
T037.BAS
< prev
next >
Wrap
BASIC Source File
|
1995-05-01
|
441b
|
17 lines
10 OPEN "T037.PLT" FOR OUTPUT AS 1
20 PRINT #1,CHR$(27)+"%-1BBPINPS7000,5000SP1"
30 PRINT #1,"IP1000,0,2500,1600SC-15,15,-10,10"
40 GOSUB 130
50 PRINT #1,"IP2500,0,1000,1600"
60 GOSUB 130
70 PRINT #1,"IP1000,1600,2500,0"
80 GOSUB 130
90 PRINT #1,"IP2500,1600,1000,0"
100 GOSUB 130
110 PRINT #1,"SP0PG;"
120 END
130 PRINT #1,"PA1,2PD1,4,3,4,3,7,2,7,4,9,6,7,5,7"
140 PRINT #1,"PD5,4,12,4,12,5,14,3,12,1,12,2,1,2PU"
150 RETURN